﻿Namespace My

    ' I seguenti eventi sono disponibili per MyApplication:
    ' 
    ' Startup: generato all'avvio dell'applicazione, prima della creazione del form di avvio.
    ' Shutdown: generato dopo la chiusura di tutti i form dell'applicazione. L'evento non è generato se l'applicazione termina in modo anormale.
    ' UnhandledException: generato se l'applicazione rileva un'eccezione non gestita.
    ' StartupNextInstance: generato quando si avvia un'applicazione istanza singola e l'applicazione è già attiva. 
    ' NetworkAvailabilityChanged: generato quando la connessione di rete è connessa o disconnessa.
    Partial Friend Class MyApplication

        Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            Try
                If GetSetting("MyAgenda", "Impostazioni", "FaseInstallazione", 0) = 0 Then
                    ' primo avvio
                    Dim oFrm As New frmParametriInstallazione
                    oFrm.Initialize()
                    If oFrm.ShowDialog = DialogResult.OK Then
                        SaveSetting("MyAgenda", "Impostazioni", "FaseInstallazione", 1)
                    Else
                        End
                    End If
                    oFrm = Nothing
                Else
                    Call Utility.CaricaImpostazioni()
                End If

                ' Controllare il db (update)
                Dim oControlloDbMyAgenda As New CheckDB_Agenda
                oControlloDbMyAgenda.oConnectionString = gConnectionStringAgenda
                oControlloDbMyAgenda.ControllaDB(True)
                oControlloDbMyAgenda = Nothing


            Catch ex As Exception
                Base.ShowError.Show("Avvio software", "Main", "Main", ex)
            End Try
        End Sub

    End Class


End Namespace

